
	****************************************************************************
	* Title: The Political Effects of Witnessing State Atrocities: 
	*        Evidence from the Nazi Death Marches
	****************************************************************************
	*
	* Authors: Alexander De Juan, Christian Gläßel, Felix Haass, Adam Scharpf
	*
	* Journal: Comparative Political Studies
	*
	* Date: March 2023
	*
	* Content: Replicating Figure 1
	*
    ****************************************************************************


	clear all
	
	*Storing working paths in macros (CAUTION: Change paths before running file)  
	global datapath="C:\...\replication_materials_death_marches\data\"	
	global figurepath="C:\...\replication_materials_death_marches\figures\"
	
	
    ****************************************************************************
	* Loading data
     ****************************************************************************
	
	use "$datapath\regimefailures_repression.dta", clear	
	
	
    ****************************************************************************
	* Figure 1
    ****************************************************************************
	
	*Sorting data for plotting
	sort winfull_irreg_fail winfull_reg_fail
	
	*Graph 
	#delimit ;
	twoway (connected rep_score_inv_reg_fail winfull_reg_fail if winfull_reg_fail!=.	
					,
					msize(*1.1)
					lpattern(shortdash) lcolor(gs10)
					mfcolor(white) mlcolor(gs10) mlwidth(.5)
			)
			(connected rep_score_inv_irreg_fail winfull_irreg_fail if winfull_irreg_fail!=.
					,
					msize(*1.3)
					mcolor(black) lcolor(black) mlwidth(0)
			)				
					,
					ysize(1)
					xsize(1.1) 
					yscale(range() noextend titlegap(*+5))
					xscale(range(-5.25 0.25) noextend titlegap(*+10)) 
					ylabel(, 
							nogrid labsize(*.9) angle(0)
					)
					xlabel(-5(1)0,
							labsize(*.9)
					)
					xticks(,tlength(*1))
					xline(0, lcolor(gs15) lwidth(*20))
					ytitle("State repression" "{&larr} Less	 			   More {&rarr}", size(*1.2))
					xtitle("Year", size(*1.2))
					legend(order(2 "Irregular" 1 "Regular")	
						rows(1)
						size(*1) keygap(*1) symxsize(*1) symysize(*.5)
						bmargin(0 0 0 5)
						position(6)
					)						
					graphregion(color(white) lcolor(white) lalign(outside))				
					; 
	#delimit cr			   
	graph export "$figurepath\figure_1.pdf", as(pdf) replace
	

	****************************************************************************	
	*	
	****************************************************************************		

	*Clearing data
	clear all
	